Celestin Apprentice 7/Apprentice-Release7.iso/Demos/Component Software/FileFlex 2.0.3.sit/FileFlex 2.0.3/Unsupported & Undocumented/Char Translation Example/00003.ls

Text File | 1996-04-10 | 391 b | 16 lines

on mouseUp
  global CaseReverseX
  set dbResult to DBOpenSession()
  if dbResult < 0 then
    alert("FileFlex could not initialize!")
    exit
  end if
  buildTranslateTable_CaseReverseX()
  put DBTranslateChars(field "text data", CaseReverseX) into field "text data"
  set dbResult to DBCloseSession()
  if dbResult < 0 then
    alert("FileFlex could not terminate!")
    exit
  end if
end